home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / MDP-80 Folder / Programs / HexToDec.ASM < prev    next >
Encoding:
Assembly Source File  |  1993-12-17  |  429 b   |  36 lines  |  [TEXT/ALFA]
  1. ;
  2. ;  HEX -> DEC
  3. ;
  4. ;  needs printDec subroutine @ 2f00
  5. ;
  6. ;  RTK, 12-17-93
  7.  
  8. #org 500
  9.  
  10. #include std.equ
  11.  
  12. #equ printDec 2f00
  13.  
  14. .again        lda >prompt
  15.             ldx <prompt
  16.             jsr _print
  17.             jsr _input1
  18.             lda >text
  19.             ldx <text
  20.             jsr _upper
  21.             lda >text
  22.             sta $06
  23.             ldx <text
  24.             stx $07
  25.             ldx #00
  26.             jsr _makeByte
  27.             cmp #00
  28.             beq end
  29.             jsr printDec
  30.             lda #0d
  31.             jsr _cout
  32.             jmp again
  33. .end        rts
  34. .prompt        asc 'Hex number ? '
  35.             hex 00
  36.